home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / dbase / videomgt.zip / DEL.PRG < prev    next >
Text File  |  1991-11-23  |  1KB  |  61 lines
  1. && DELETE RECORDS ===> DEL.PRG
  2. SET TALK OFF
  3. USE YSALES
  4. INDEX ON CUST_NO + FILM_NO TAG CFILM
  5. SET ORDER TO CFILM
  6. DO WHILE .T.
  7. MX=" " 
  8. MANS=" "
  9. MMC=SPACE(4)
  10. MMF=SPACE(4)
  11. MT=SPACE(1)
  12. MCUST_NO1=SPACE(4)
  13. MDATE1=CTOD(SPACE(8))
  14. MFILM_NO1=SPACE(4)
  15. MRETURNED1=.F.
  16.    @ 10,12 SAY "ENTER THE CUSTOMER NUMBER TO DELETE " GET MMC
  17.    @ 12,12 SAY "ENTER THE FILM NUMBER TO DELETE     " GET MMF
  18.    READ
  19.    GOTO TOP
  20.    SEEK MMC + MMF
  21.    IF FOUND ()
  22.       CLEAR
  23.       DO WHILE CUST_NO = MMC .AND. FILM_NO = MMF
  24.          @ 6,6
  25.          DISP CUST_NO, DATE, FILM_NO, RETURNED
  26.          EXIT
  27.       ENDDO
  28.       @ 16,12 SAY "   DO YOU REALLY WANT TO DELETE(Y/N)? " GET MT  
  29.       READ
  30.       IF MT $"Yy"
  31.       DNOS=DNOS+1
  32.       DELETE
  33.       ENDIF
  34.    ELSE
  35.       @ 16,12 SAY "THIS RECORD IS NOT FOUND, PLEASE CHECK THE NUMBERS ENTERED"
  36.       @ 18,12 SAY "DO YOU WANT TO CONTINUE(Y/N)? " GET MX
  37.       READ
  38.       IF MX $"Nn"
  39.          EXIT
  40.       ELSE
  41.          CLEAR
  42.          LOOP
  43.       ENDIF
  44.    ENDIF  
  45.    CLEAR
  46.       @ 12,19 
  47.       WAIT "                    DO YOU WANT TO CONTINUE(Y/N)? " TO MANS
  48.       IF MANS $"Yy"
  49.          CLEAR
  50.          LOOP
  51.       ELSE
  52.          EXIT
  53.       ENDIF  
  54. ENDDO    
  55. CLEAR
  56. @ 10,36 SAY "W A I T"
  57. PACK
  58. ERASE CFILM.MDX
  59. USE
  60. RETURN
  61.